home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Desktop Settings.xpl < prev    next >
Text File  |  2000-11-18  |  2KB  |  73 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\Desktop\Options"
  5. "NAME"="General Desktop Options"
  6. "VERSION"="2.04"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show ToolTips on Desktop and inside Explorer"
  9. "TEXT 2"="Save item positions on exit"
  10. "TEXT 3"="Use 256 color icons when possible"
  11. "DESCRIPTION 1"="If the first option is activated the Desktop and the Windows Explorer will display a ToolTip for various items. If deactivated, this AKA "bubble help" will not appear."
  12. "DESCRIPTION 2"="If "Save item positions on exit" is activated, the desktop saves the positions of every icon on the desktop on exit (default). If deactivated, Windows does not save the positions."
  13. "DESCRIPTION 3"="If "Use 256 color icons when possible" is activated, Windows will try to use 256 color icons for all links on your desktop instead of the "normal" 16 color icons."
  14. "DESCRIPTION 4"="To see the changes, switch to the desktop and press F5 to refresh it."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"="Thanks to Maxwell <maxwello@hotpop.com> for this setting."
  20. "COMMENT 3"="Thanks to Pierre Szwarc <http://perso.cybercable.fr/szwarc/> for the Windows 2000 part."
  21. "COMMENT 4"="Thanks to Serge LEICHTER [s.leichter@magic.fr] for the "My computer" bug notice."
  22.  
  23.  
  24. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip" 'DW
  25. sV2="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSaveSettings" 'BINARY!
  26. sV3="HKCU\Control Panel\Desktop\WindowMetrics\Shell Icon BPP" 'STRING 
  27.  
  28.  
  29. Sub Plugin_Initialize 
  30.     i=RegReadValue(sV1)
  31.     if i=1 then SetUIElement 1,true
  32.  
  33.     i=RegReadValue(sV2)
  34.     if IsEmpty(i) or i="00000000" then SetUIElement 2,true
  35.  
  36.     s=RegReadValue(sV3)
  37.     if s="16" then SetUIElement 3,true
  38. End Sub
  39.  
  40. Sub Plugin_CheckData(ElementIndex)
  41. End Sub
  42.  
  43. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  
  45.  b=GetUIElement(1)
  46.  if b=true then
  47.     Call RegWriteValue(sV1,1,2)
  48.  else
  49.     Call RegWriteValue(sV1,0,2)
  50.  end if
  51.  
  52.  
  53.  b=GetUIElement(2)
  54.  if b=true then
  55.     Call RegWriteValue(sV2,"00000000",3)
  56.  else
  57.     Call RegWriteValue(sV2,"01000000",3)
  58.  end if
  59.  
  60.  b=GetUIElement(3)
  61.  if b=true then
  62.     Call RegWriteValue(sV3,"16",1)
  63.  else
  64.     Call RegWriteValue(sV3,"0",1)
  65.  end if
  66.  
  67.  
  68.  Call IndicateSettingChange()
  69. End Sub
  70.  
  71. Sub Plugin_Terminate 
  72. End Sub
  73.